home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00278_Script_ENTREE_TRAVELING < prev    next >
Text File  |  2004-12-05  |  945b  |  29 lines
  1. global gze_Label,gpiste_Fond, gdeltaTravelingMax, gL_Home, gNb_Traveltracks, gTrans ,gSens 
  2. property p_Nbpistes,p_sens
  3. -----------------
  4. on getPropertyDescriptionList me
  5.   return [\
  6. #p_Nbpistes:[#comment: "nombre de pistes concernΘes(hors fond):",#format: #integer, #default: 1],\
  7. #p_sens:[#comment: "sens du dΘplacement (1--> horizontal, 2--> vertical:",#format: #integer, #default: 1]\
  8.   ]
  9. end getPropertyDescriptionList
  10. ---------------------
  11. on prepareFrame me
  12.   cursor -1
  13.   gze_Label = the frameLabel
  14.   gNb_Traveltracks = p_Nbpistes
  15.   case(p_sens) of
  16.     1:
  17.       gdeltaTravelingMax = sprite(gpiste_Fond).member.width -640
  18.     2:
  19.       gdeltaTravelingMax = sprite(gpiste_Fond).member.height -456--(456= hauteur Θcran sans bandeau du bas)
  20.   end case
  21.   gL_Home = []
  22.   repeat with i = 1 to gNb_Traveltracks
  23.     gL_Home.add(sprite(gpiste_Fond +i).loc)
  24.   end repeat
  25.   gTrans  = 0
  26.   gSens = p_sens
  27. end
  28. ----------------
  29.